TITLE	MTAPIP
	SIZE=200*↑D24
FNAM:	BLOCK	4
DP:	IOWD	SIZE,B
	0
MP:	IOWD	SIZE,B
	0
B:	BLOCK	SIZE
STRT:	OUTSTR	[ASCIZ/
PIPPING MUSIC.MUS TO MTA:
SAMPLES CAN THEN BE DUMPED FROM MTA: (MAX 15K)
!!! THE .R PLAY PROGRAM MUST BE USED !!!
/]
	INIT	16,17
	SIXBIT	/MTA/
	0
	HALT
	INIT	17,17
	SIXBIT	/DSK/
	0
	HALT
	MOVE	[SIXBIT"MUSIC"]
	MOVEM	FNAM
	MOVE	[SIXBIT"MUS"]
	MOVEM	FNAM+1
	SETZM	FNAM+2
	SETZM	FNAM+3
	LOOKUP	17,FNAM
	JRST	[
	OUTSTR	[ASCIZ/
?MUSIC.MUS NOT FOUND?/]
	EXIT]
L:	IN	17,DP
	SKIPA
	JRST	D
	MOVE	DP
	MOVEM	MP
	OUT	16,MP
	SKIPA
	HALT
	JRST	L
D:	EXIT
	END	STRT